home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SHARED.cst / 00004_Script_list tools < prev    next >
Text File  |  2001-09-17  |  4KB  |  142 lines
  1. --∂ï
  2. on english
  3.   global gWordList,ScrollList,ScrollListE,alphaLocsE
  4.   
  5.   set gWordList = []
  6.   set List      = 7
  7.   set Listing   = 8
  8.   set Alpha     = 9
  9.   
  10.   --  tell window "dData" to put field List into aList  ----PETEMACK 06.21.01 
  11.   tell window "dData" to put field "eList" into aList   ----PETEMACK 06.21.01 
  12.   set gWordList = value(aList)                          ----PETEMACK 06.21.01 
  13.   --  do "set gWordList="&aList                         ----PETEMACK 06.21.01 
  14.   --  set gWordList = aList                             ----PETEMACK 06.21.01 
  15.   
  16.   
  17.   --  tell window "dData" to put field Listing into scrollList  ----PETEMACK 06.21.01 
  18.   tell window "dData" to put field "eListing" into scrollList   ----PETEMACK 06.21.01
  19.   set ScrollListE = ScrollList
  20.   
  21.   
  22.   --  tell window "dData" to put field Alpha into alphaList ----PETEMACK 06.21.01 
  23.   tell window "dData" to put field "eAlpha" into alphaList  ----PETEMACK 06.21.01 
  24.   set alphaLocsE = value(alphaList)                         ----PETEMACK 06.21.01 
  25.   --  do "set alphaLocsE="&alphaList                        ----PETEMACK 06.21.01 
  26.   --  set alphaLocsE = alphaList                            ----PETEMACK 06.21.01 
  27.   
  28.   
  29.   put count(gWordList)  && "count of gWordList"   ----PETEMACK 06.28.01
  30.   put count(alphaLocsE) && "count of alphaLocsE"  ----PETEMACK 06.28.01
  31.   
  32. end 
  33.  
  34. on spanish
  35.   global gSpList,gSpSortedList,gSpSorted,gSpAlpha
  36.   set gSpList = []
  37.   set pt2 = []
  38.   set gSpAlpha = []
  39.   set List = "sList"
  40.   
  41.   tell window "dData" to put field List into aList
  42.   do "set gSpList="&aList
  43.   tell window "dData" to put field (List&"2") into aList
  44.   do "set pt2="&aList
  45.   tell window "dData" to put field "sAlpha" into aList
  46.   do "set gSpAlpha="&aList
  47.   
  48.   combLists gSpList,pt2
  49.   do "set gSpSortedList="&string(gSpList)
  50.   set gSpSorted = false
  51.   set pt2 = []
  52. end
  53.  
  54. on french
  55.   global gFrList,gFrSortedList,gFrSorted,gFrAlpha
  56.   set gFrList = []
  57.   set pt2 = []
  58.   set gFrAlpha = []
  59.   set List = "fList"
  60.   
  61.   tell window "dData" to put field List into aList
  62.   do "set gFrList="&aList
  63.   do "set gFrSortedList="&aList
  64.   tell window "dData" to put field (List&"2") into aList
  65.   do "set pt2="&aList
  66.   tell window "dData" to put field "fAlpha" into aList
  67.   do "set gFrAlpha="&aList
  68.   
  69.   combLists gFrList,pt2
  70.   combLists gFrSortedList,pt2
  71.   set gFrSorted = false
  72.   set pt2 = []
  73. end
  74.  
  75. on german
  76.   global gGeList,gGeSortedList,gGeSorted,gGeAlpha
  77.   set gGeList = []
  78.   set pt2 = []
  79.   set gGeAlpha = []
  80.   set List = "gList"
  81.   
  82.   tell window "dData" to put field List into aList
  83.   do "set gGeList="&aList
  84.   do "set gGeSortedList="&aList
  85.   tell window "dData" to put field (List&"2") into aList
  86.   do "set pt2="&aList
  87.   tell window "dData" to put field "gAlpha" into aList
  88.   do "set gGeAlpha="&aList
  89.   
  90.   combLists gGeList,pt2
  91.   combLists gGeSortedList,pt2
  92.   set gGeSorted = false
  93.   set pt2 = []
  94. end
  95.  
  96. on italian
  97.   global gItList,gItSortedList,gItSorted,gItAlpha
  98.   set gItList = []
  99.   set pt2 = []
  100.   set gItAlpha = []
  101.   set List = "iList"
  102.   
  103.   tell window "dData" to put field List into aList
  104.   do "set gItList="&aList
  105.   do "set gItSortedList="&aList
  106.   tell window "dData" to put field (List&"2") into aList
  107.   do "set pt2="&aList
  108.   tell window "dData" to put field "iAlpha" into aList
  109.   do "set gItAlpha="&aList
  110.   
  111.   combLists gItList,pt2
  112.   combLists gItSortedList,pt2
  113.   set gItSorted = false
  114.   set pt2 = []
  115. end 
  116.  
  117. on combLists l1,l2
  118.   repeat with i = 1 to count(l2)
  119.     add l1,getAt(l2,i)
  120.   end repeat
  121. end 
  122.  
  123. on getEnglishValue ref
  124.   global language,scrollList
  125.   global gWordList,gSpList,gFrList,gGeList,gItList
  126.   set aWord = line ref of scrollList
  127.   if language = "Spanish" then return getPos(gSpList,aWord) 
  128.   if language = "French" then return getPos(gFrList,aWord) 
  129.   if language = "German" then return getPos(gGeList,aWord) 
  130.   if language = "Italian" then return getPos(gItList,aWord) 
  131. end getEnglishValue
  132.  
  133. on getEnglishWord aWord
  134.   global language
  135.   global gWordList,gSpList,gFrList,gGeList,gItList
  136.   if language = "Spanish" then return getAt(gWordList,getPos(gSpList,aWord))
  137.   if language = "French" then return getAt(gWordList,getPos(gFrList,aWord))
  138.   if language = "German" then return getAt(gWordList,getPos(gGeList,aWord))
  139.   if language = "Italian" then return getAt(gWordList,getPos(gItList,aWord))
  140. end getEnglishWord
  141.  
  142.